home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 579 / program / procdure / func_key.lst < prev    next >
Encoding:
File List  |  1992-01-19  |  176 b   |  12 lines
  1. PROCEDURE function_key(VAR key%)
  2.   LOCAL xa%
  3.   key%=0
  4.   xa%=BIOS(1,2)
  5.   IF xa%
  6.     xa%=INP(2)
  7.     IF xa%>186 AND xa%<197
  8.       key%=xa%-186
  9.     ENDIF
  10.   ENDIF
  11. RETURN
  12.